perm filename PDLCNT.LAP[MAC,LSP] blob sn#476814 filedate 1979-09-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(lap pdlcnt subr)
C00003 ENDMK
CāŠ—;
(lap pdlcnt subr)
(args pdlcnt (nil . 0))
(move tt 131)
(jsp t fxcons)
(popj p)
(entry setpdlcnt subr)
(args setpdlcnt (nil . 1))
(move b 0 a)
(movem b 131)
(popj p)
()